Night Owl 6

home *** CD-ROM | disk | FTP | other *** search

/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 018a / amac41.zip / RFR003.QM < prev next >

Wrap

Text File | 1991-08-26 | 34KB | 675 lines

* RFR003.QM * Written By Tom Hogshead * [ See RFRMxx.QM For Use ] * 8/9/91 * Key Subfile Description * ===== =============== ==================================================== * @(1) Formats Commented or Uncommented Paragraph, * Leaves: Commented Paragraph Uncommented, or * Uncommented Paragraph Commented, * * @(2) Formats Commented or Uncommented Paragraph, * Leaves: Paragraph Commenting 'As Is' * * @(3) < best > Formats Commented or Uncommented Paragraph, * Leaves: Commented Paragraph Uncommented, or * Uncommented Paragraph Commented, * Replaces "period space" with "period two spaces" * * @(4) Formats Commented or Uncommented Paragraph, * Leaves: Paragraph Commenting 'as is' * Replaces "period space" with "period two spaces" * * @(5) Removes "period two spaces" from Paragraph * * ^(F3__) Formats PARAGRAPH (Fast And Small) * ^(F4__) Formats PARAGRAPH (Slow) * ^(F5__) Formats DOCUMENT * ^(F6__) Formats BLOCK. Must Position Cursor At Block Begin * ^(F7__) Formats Message Reader Paragraph (Tim Farley) * ^(F8__) Formats QMAC Txtfile BLOCK With Asterisks In Col 1 * * {e:\up\RFRM*}--Return To RFRMxx.QM * *-- eoi * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F3__) Formats a paragraph. (Macro has been around a long time) │ * └─────────────────────────────────────────────────────────────────────┘ * ^F3 Macrobegin Cursordown * move down one line Prevpara * get to beginning of paragraph Wrappara * reformat Nextpara * go to begin next paragraph * * 8 bytes Wed 08-01-1990 10:47:36 * 8 bytes Thu 08-08-1991 14:02:17 (TH ^F3, in rfr003.qm) * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F4__) Formats Paragraph Only. Keeps in original indented position │ * └─────────────────────────────────────────────────────────────────────┘ * To run, place cursor line anywhere in a paragraph, and press ^F4. * This macro yields the same formatted paragraph as does ^F3 if * the right margin is set to 69 in the QEdit menu or in QCONFIG.DAT. * If there are asterisks in column 1 they are also formatted as part of * the paragraph. ^F4 Macrobegin Unmarkblock * Get ready Cursordown * Get into paragraph Prevpara * Get to paragraph begin Markcolumn * Mark column Endpara * Get to paragraph end Gotocolumn "512" Return * Get all paragraph in block Markcolumn * Mark paragraph Gotoblockbeg * Get to paragraph begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Set rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark end block Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Paste * Put back formatted, marked Begline Makectrofscreen * Better view END: * * 60 bytes Tue 09-11-1990 19:12:08 ***************************** (TEST1) PARAGRAPH ****************************** * (remove * in column 1 before testing) * * This is a (test) paragraph. * Place the cursor line anywhere in this paragraph to run. * Press ^F4 at the same time. * Be sure AutoIndent is ON. (Long line for test )==>>>>>>>>>>>> ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F5__) Formats complete document with blank lines forming paragraphs│ * └─────────────────────────────────────────────────────────────────────┘ * ^F5 MacroBegin Unmarkblock * Unmark Begfile * Get to file begin Setrmargin "69" Return * Set new right margin FORMAT: * Jfalse FINISH: * No more para? go to FINISH WrapPara * Reformat NextPara * Get to begin next paragraph Jump FORMAT: * FINISH: * No more paragraphs Setrmargin "80" Return * Reset right margin * * 26 bytes Wed 09-12-1990 16:47: * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F6__) Formats Block. Must position cursor at beginning of block │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor' at the beginning of the block to * reformat. Press ^F6, then cursor down to bottom of block to * reformat. Press 'Enter' when the block is marked. This macro differs * from ^F8 in that the starting position of the block to be * reformatted is selected by the starting position of the cursor; in * ^F8 the block starting POSITION is selected by the starting * position of the cursor line. * ^F6 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Prevposition * Begline * Prevposition * Makectrofscreen * See better Cursordown * Position to cursor down Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 62 bytes Tue 09-11-1990 19:09:31 ***************************** (TEST2) PARAGRAPH *************************** * This is a test block. To format, place the "cursor" on "T" in * in "this" on line 1. Then press ^F6 and cursor down to * block end. When the block has been marked press * 'Enter'. * Asterisks need not be removed. * *┌───────────────────────────────────────┐ *│^(F7__) Format Message Reader Paragraph│ *└───────────────────────────────────────┘ * Here's a handy macro from Tim Farley of SemWare to reformat a message * reader paragraph. Remember, paragraphs are reformatted to the width * of the right margin setting, so set as needed. * * ========================================================================= * Date: 10-01-90 (19:09) Number: 3041 SemWare Support BBS * To: DAN SNAPPER Refer#: 3028 * From: TIM FARLEY Read: YES * Subj: Message reformat macro Conf: (21) ILink * ------------------------------------------------------------------------ * DS> Does anyone have a macro to reformat a quoted 'off-line' * DS> message paragraph and then reinsert the quotes back? * DS> * DS> * DS> * * Here it is: * * * Reader Paragraph Reform * Mark a line block, hit this key, and it will reform the text, leaving * all "II>" quoting on the left alone. * * Assumes that ">" is the last character of the "quoting" mark. * Also assumes that WordWrap is currently on when you hit it, * and that there is a currently marked block. * ^F7 MacroBegin OneWindow GotoBlockBeg GotoBlockEnd JTrue doit: MarkLine GotoBlockEnd doit: ToggleWordWrap EndLine #254 ToggleWordWrap GotoBlockBeg GotoColumn "16" Return Find ">" Return "BL" Return JTrue foundit: BegLine foundit: CursorRight UnmarkBlock MarkColumn Find #254 Return "N" Return GotoColumn "512" Return MarkColumn BegLine GotoBlockBeg Cut MarkLine CopyBlock CopyBlock CopyBlock UnmarkBlock HorizontalWindow EditFile "$$$$$$$$.tmp" Return BegFile BegLine * Top of files in case it was already here InsertLine InsertLine * ?? Paste UnMarkBlock * put block in place EndFile AddLine BegFile * mandatory blank line on end more: WrapPara * wrap each para JTrue more: * until none left DelLine BegFile BegLine Find Return Return * find our goofy char again DelCh * and delete it GotoColumn "512" Return MarkColumn BegFile BegLine MarkColumn Cut Quit PrevWindow OneWindow Paste GotoBlockEnd CursorDown BegLine UnMarkBlock * * 132 bytes Tue 10-02-1990 16:51:06 (added TH) * This macro is too long for QCONFIG, you'll have to use QMAC to * compile it. Then put the compiled macro files in some directory, * and add the following option to the command line your reader runs * QEdit with: * * /Ld:\dir\filename.ext * * where D:\DIR\FILENAME.EXT is the full drive, path, and name of * the compiled binary macro file. * * I've used this macro myself to reformat quotes, for over a year * now. * * --Tim Farley * SemWare Technical Support * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F8__) Formats QMAC txtfile block with asterisk in column 1 │ * └─────────────────────────────────────────────────────────────────────┘ * This macro is included for technique only, since @1 does the same * thing, and is smaller and faster. * To run, position the 'cursor line' on the first line of the block to * reformat. Press ^F8, then cursor down to bottom of block to * reformat. To reformat, press 'Enter' when the block is marked. This * macro differs from ^F6 in that the block does not include the * asterisk and blank space; in ^F6 the block starting position is * selected by the starting position of the cursor line. This macro * also differs from ^F4 which formats a paragraph from first blank line * which has no text or asterisk on line to last blank line. ^F8 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Begline * Start at line begin Wordright * Get to first word on line Cursordown * Position to cursor down Makectrofscreen * See better Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "65" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 61 bytes Tue 09-11-1990 19:21:48 * * ---------------------------------------------------------------------- * @(1) Formats Commented or Uncommented Paragraph, * Leaves Commented Paragraph Uncommented, * Leaves Uncommented Paragraph Commented, * ---------------------------------------------------------------------- * This macro formats a paragraph that is either commented with an * asterisk and space in column 1, or uncommented, to a column width of * 69. If the paragraph is already commented, it is formatted and * uncommented: if the paragraph is *not* already commented, it is * formatted and commented. Invoking this macro twice will return the * paragraph to it's original commented or uncommented state, but * formatted. This macro will not work correctly if blank lines are * commented. * To run, invoke @1 with the cursor located anywhere in a paragraph. If * the cursor is located between paragraphs, the previous paragraph is * formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat. @1 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jfalse COMMENT: * If no star in col 1, must comment * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: *ELSE para is commented ShiftLeft ShiftLeft * Col 1 has star, un-comment para wrappara * Format uncommented paragraph prevpara * Return to begin of formatted para Jump END: * End macro * ------------------- Comment And Format Paragraph -------------------* COMMENT: * wrappara * Format uncommented paragraph gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 * MarkColumn * Mark 1st character column |a FillBlock '*' Return * Fill col 1 with '*' END: * makectrofscreen * Position para begin on screen center |a * maketopofscreen * Position para begin on screen top | UnmarkBlock * Unmark * scrollup * scrollup 2 lines |a * scrollup * | * nextpara * Position at start of next paragraph * * 56 bytes Thu 08-15-1991 19:35:22 (TH @1 |a) * 53 bytes Thu 08-08-1991 13:50:57 (TH @1, in rfr003.qm) * Uncomment and format to one line for QCconfig.dat: * -------------------------------------------------- * @1 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JFalse Label0: * ShiftLeft ShiftLeft WrapPara PrevPara Jump Label1: Label0: * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return Label1: MakeCtrOfScreen UnmarkBlock * * * * 53 bytes Thu 08-08-1991 13:50:57 (TH @1, in rfr003.qm) * * ---------------------------------------------------------------------- * @(2) Formats Commented or Uncommented Paragraph, * Leaves Paragraph In Original Commented Or Uncommented State * ---------------------------------------------------------------------- * This macro formats a paragraph that is either commented with an * asterisk and space in column 1 or uncommented, to a column width of * 69. This macro differs from @1 in that @2 does not change the * commented state of the paragraph, i.e. it leaves a commented * paragraph commented after reformatting and an uncommented paragraph * uncommented, but formatted. This macro will not work correctly if * blank lines are commented. * To run, invoke @2 with the cursor located anywhere in the paragraph. * If the cursor is located between paragraphs, the previous paragraph * is formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat. @2 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jtrue UNCOMMENT: * If star in col 1, must uncomment * ------------------- Format Uncommented Paragraph -------------------* wrappara * Format uncommented paragraph Prevpara * Go to beginning of paragraph Jump END: * End macro * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: * ShiftLeft ShiftLeft * Col 1 has star, un-comment block wrappara * Format uncommented paragraph * ----------------------- Re-comment Paragraph -----------------------* gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 FillBlock '*' Return * Fill col 1 with '*' END: * makectrofscreen * Position para begin on screen center UnmarkBlock * Unmark * nextpara * Position at start of next paragraph * * 53 bytes Thu 08-08-1991 13:38:59 (TH @2, in rfr003.qm) * Uncomment and format to one line for QCconfig.dat: * -------------------------------------------------- * @2 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JTrue Label0: * WrapPara PrevPara Jump Label1: Label0: ShiftLeft ShiftLeft * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return Label1: MakeCtrOfScreen UnmarkBlock * * * * 53 bytes Thu 08-08-1991 13:38:59 (TH @2, in rfr003.qm) * * ---------------------------------------------------------------------- * @(3) Formats Commented or Uncommented Paragraph, * Leaves: Commented Paragraph Uncommented, or * Uncommented Paragraph Commented, * Replaces "period space" with "period two spaces" * ---------------------------------------------------------------------- * This macro formats a paragraph to a column width of 69. Before macro * execution the paragraph may either be commented with an asterisk and * space in column 1 or uncommented. All occurrences in the paragraph * of "period space" are replaced with "period two spaces". If the * paragraph is already commented before macro execution, it is * formatted and uncommented. If the paragraph is not already * commented, it is formatted and commented. Invoking this macro twice * will return the paragraph to it's original commented or uncommented * state, but formatted. This macro will not work correctly if blank * lines are commented. * To run, invoke @3 with the cursor located anywhere in a paragraph. If * the cursor is located between paragraphs, the previous paragraph is * formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat by removing 'Label' from the QMAC compiled macro * as shown below. Period spacing routine was written by Tim Farley. @3 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jfalse COMMENT: * If no star in col 1, must comment * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: *ELSE para is commented ShiftLeft ShiftLeft * Col 1 has star, un-comment para wrappara * Format uncommented paragraph prevpara * Return to begin of formatted para Jump END: * End macro * ------------------- Comment And Format Paragraph -------------------* COMMENT: * wrappara * Format uncommented paragraph gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 FillBlock '*' Return * Fill col 1 with '*' markline * Make paragraph a line block END: * * -------- Replaces "Period Space" With "Period two spaces" --------* makectrofscreen * Position para begin on screen center FindReplace * ". " Return * Change period with single space ". " Return * to one with double space. "LN" Return * JFalse DONE: * None? We're done... FindReplace * ". " Return * Now fix any that ended up with 3 ". " Return * to have just two again. "LN" Return * DONE: * UnmarkBlock * Unmark * nextpara * Position at start of next paragraph * * 97 bytes Thu 08-08-1991 14:03:38 (TH @3, in rfr003.qm) * QMAC compiled @3 with "Label" removed to fit on one line of QConfig.dat * ----------------------------------------------------------------------- * @3 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JFalse 0: * ShiftLeft ShiftLeft WrapPara PrevPara Jump 1: 0: * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return MarkLine 1: MakeCtrOfScreen FindReplace ". " * Return ". " Return "LN" Return JFalse 2: FindReplace "" * ". " Return ". " Return "LN" Return 2: UnmarkBlock * * * * 97 bytes Thu 08-08-1991 14:03:38 (TH @3, in rfr003.qm) * * ---------------------------------------------------------------------- * @(4) Formats Commented or Uncommented Paragraph, * Leaves Paragraph In Original Commented Or Uncommented State * Replaces "period space" With "period two spaces" * ---------------------------------------------------------------------- * This macro formats a paragraph that is either commented with an * asterisk and space in column 1 or uncommented, to a column width of * 69, and replaces "period space" with "period two spaces". This * macro differs from @3 in that @4 does not change the commented state * of the paragraph, i.e. it leaves a commented paragraph commented * after reformatting and an uncommented paragraph uncommented, but * formatted. This macro will not work correctly if blank lines are * commented. * To run, invoke @4 with the cursor located anywhere in the paragraph. * If the cursor is located between paragraphs, the previous paragraph * is formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat by removing 'Label' from the QMAC compiled macro * as shown below. Period spacing routine was written by Tim Farley. @4 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jtrue UNCOMMENT: * If star in col 1, must uncomment * ------------------- Format Uncommented Paragraph -------------------* wrappara * Format uncommented paragraph Prevpara * Go to beginning of paragraph Jump END: * End macro * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: * ShiftLeft ShiftLeft * Col 1 has star, un-comment block wrappara * Format uncommented paragraph * ----------------------- Re-comment Paragraph -----------------------* gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 FillBlock '*' Return * Fill col 1 with '*' markline * Make paragraph a line block END: * * -------- Replaces "Period Space" With "Period two spaces" --------* makectrofscreen * Position para begin on screen center FindReplace * ". " Return * Change period with single space ". " Return * to one with double space. "LN" Return * JFalse DONE: * None? We're done... FindReplace * ". " Return * Now fix any that ended up with 3 ". " Return * to have just two again. "LN" Return * DONE: * UnmarkBlock * Unmark * nextpara * Position at start of next paragraph * * 97 bytes Thu 08-08-1991 14:24:28 (TH @4, in rfr003.qm) * QMAC compiled @4 with "Label" removed to fit on one line of QConfig.dat * ----------------------------------------------------------------------- * @4 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JTrue 0: * WrapPara PrevPara Jump 1: 0: ShiftLeft ShiftLeft * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return MarkLine 1: MakeCtrOfScreen FindReplace ". " * Return ". " Return "LN" Return JFalse 2: FindReplace "" * ". " Return ". " Return "LN" Return 2: UnmarkBlock * * * * 97 bytes Thu 08-08-1991 14:24:28 (TH @4, in rfr003.qm) * * ---------------------------------------------------------------------- * @(5) Removes "period two spaces" From Paragraph * ---------------------------------------------------------------------- * This macro removes all occurrences of "period two spaces" in a * paragraph and returns to normal "period space". Invoke @5 with the * cursor anywhere in a paragraph. @5 Macrobegin unmarkblock * Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close paragraph as character block PrevPosition * Return to paragraph begin FindReplace * Replace ". " Return * period space ". " Return * with period two spaces "LN" Return * only in paragraph Unmarkblock * Makectrofscreen * * * 31 bytes Thu 08-08-1991 16:13:16 (TH @5, in rfr003.qm)